function cobaM2(filepath, k, name, table)
A = load (filepath);
AT = transpose(A);
ATA = AT*A;
[V,D] = eigs(ATA,k);
N = V;
S = sprintf('VDS_%s_%s_%d.txt', name, table, k);
save(S,'N','-ASCII');
quit force
